home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / util1 / scout25.lha / scout / arexx / poptofront.scout < prev    next >
Text File  |  1995-12-13  |  621b  |  23 lines
  1. /**************************************************************************
  2.  *         This ARexx script pops the window <window> to front.           *
  3.  *                     USAGE: poptofront <window>                         *
  4.  *            <window> can be title or address of the window.             *
  5.  **************************************************************************/
  6.  
  7. if showlist('p','SCOUT.1') < 1 then do
  8.   say "Scout is not running!"
  9.   exit
  10. end
  11. address 'SCOUT.1'
  12. parse arg window
  13.  
  14. options results
  15. options failat 20
  16.  
  17. if window = '' then do
  18.   say "usage: poptofront <window>"
  19.   exit
  20. end
  21.  
  22. PopToFront window
  23.